home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 20 / AMIGAplus Sonderheft 20 (1999)(ICP)(DE)[!].iso / PublicDomain / Spiele / CoinMania / CoinMania.lha / leveleditor / LevelEditorInstaller < prev    next >
Text File  |  1995-09-25  |  2KB  |  49 lines
  1. (set @appname "COINMANIA LEVEL EDITOR")
  2. (set @user-level 2)
  3. (complete 0)
  4. (set NoHD 0)
  5. (set GotHD (exists "dh0:" (noreq)))
  6. (if (= GotHD NoHD)
  7.  ((message "\n\n\n\nUnable To Install\n\nCOINMANIA\n\nAs No Hard Disk Attached")
  8.    (exit (quiet))
  9.  )
  10. )
  11. (set LE_Dest (askdir
  12.                (prompt "Please Choose Where You Would Like The\n"
  13.                "COIN MANIA - LEVEL EDITOR\n"
  14.                "To Be Installed")
  15.            (help   "      This Part Will Make A Directory Called:-\n"
  16.                "                      LEVEL EDITOR\n"
  17.                "            In The Directory You Select.\n\n"
  18.                "                 e.g If You Select:-\n"
  19.                "                         DH0:\n"
  20.                "              Then A Directory Called:\n"
  21.                "                    DH0:LEVEL EDITOR\n\n"
  22.                "Will Be Created And The CM - LEVEL EDITOR And Most Of "
  23.                "The Files Related To It  Will Be Placed In This Newly "
  24.                "Created Directory So They Are Not Spread All Over The "
  25.                "            Device You Wish To Install To.")
  26.            (default @default-dest)
  27.          )
  28. )
  29. (set LE_Dest (tackon LE_Dest "LevelEditor"))
  30. (makedir LE_Dest (prompt "")(help "")(infos))
  31. (copyfiles (prompt "")
  32.        (help "")
  33.        (infos)
  34.        (source "CheapWare:LevelEditor")
  35.        (dest LE_Dest)
  36.        (all))
  37. (message "\n\nNow Attempting To Edit File\n\n"
  38.      "--------\n"
  39.      "S:User-Startup\n"
  40.      "---------\n\n"
  41.      "To Include The Line\n\n"
  42.      "--------------------------\n"
  43.      "ASSIGN LevelEditor: " LE_Dest)
  44. (startup "LEVELEDITOR"
  45.      (prompt "Editing Startup-Sequence To Include Assign")
  46.      (help "")
  47.      (command "Assign LevelEditor: " LE_Dest))
  48. (complete 100)
  49.